home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / misc / math / LaplaceBase.lha / Install_Laplace / Install < prev    next >
Encoding:
Text File  |  1998-09-30  |  56.1 KB  |  1,525 lines
  1. ;------------------------------------------------------------------------
  2. ;
  3. ; Laplace Installation script
  4. ;
  5. ; $VER: Laplace-Install 1.6 (29.1.1998)
  6. ;
  7. ; Script: (C)1996/1997 by A Vision of Paradise
  8. ; Installer: (C)1996 ESCOM AG
  9. ; written by P!\K
  10. ;
  11. ;------------------------------------------------------------------------
  12.  
  13. ;-1- "language definitions"
  14. (if (= @language "deutsch")
  15.     (
  16. ;-1- "deutsch"
  17.         (set #lhapath-prompt "Lha wird benötigt! Wo befindet es sich?")
  18.         (set #lhapath-help (cat
  19.             "Lha wird benötigt, um die Installation durchzuführen. "
  20.             "Es wurde aber nicht im C: Verzeichnis gefunden!\n"
  21.             "Es ist der vollständige Pfad anzugeben, an dem es zu finden ist.\n"
  22.             "\n"
  23.             @askfile-help
  24.           )
  25.         )
  26.         (set #welcome "Willkommen bei der Installation von Laplace.")
  27.         (set #mode-prompt "")
  28.         (set #mode-help @askchoice-help)
  29.         (set #modeupdate-prompt (cat
  30.             "Welche Aktion willst Du ausführen?\n"
  31.             "Laplace V%s ist bereits in %s installiert."
  32.           )
  33.         )
  34.         (set #modeupdate-help @askchoice-help)
  35.         (set #mode-update "Laplace aktualisieren")
  36.         (set #mode-install "Laplace installieren")
  37.         (set #mode-deinstall "Laplace löschen")
  38.         (set #share-info (cat
  39.             "Wenn Dir dieses Programm gefällt, schicke mir bitte eine e-Mail oder Postkarte.\n"
  40.             "\n"
  41.             "e-mail:\n"
  42.             "bstegema@ix.urz.uni-heidelberg.de\n"
  43.             "\n"
  44.             "s-mail:\n"
  45.             "Benjamin Stegemann\n"
  46.             "Emmertsgrundpassage 1\n"
  47.             "69126 Heidelberg\n"
  48.             "Germany"
  49.           )
  50.         )
  51.         (set #wrongversion (cat
  52.             "Dieses Skript benötigt den Installer V42.9 oder höher. "
  53.             "Er befinded sich im Verzeichnis Laplace/Tools und sollte eigentlich benutzt werden. "
  54.             "Falls Du ein Tool wie ToolAlias benutzt, kopiere diese Version als Deinen Standartinstaller. "
  55.           )
  56.         )
  57.         (set #wrongos (cat
  58.             "Laplace benötigt OS V39 oder besser.\n"
  59.             "Du hast V%ld.%ld installiert. Sorry."
  60.           )
  61.         )
  62.         (set #wrongmui (cat
  63.             "Laplace benötigt MUI V13 oder besser.\n"
  64.             "Du hast V%ld.%ld installiert. Sorry.\n\n"
  65.             "MUI ist im Aminet erhältlich:\n"
  66.             "dev/gui/muiXXusr.lha\n"
  67.             "Wobei XX die Versionsnummer ist."
  68.           )
  69.         )
  70.         (set #nomui (cat
  71.             "Laplace benötigt MUI V13 oder besser.\n"
  72.             "Zur Zeit ist MUI nicht installiert. Sorry.\n\n"
  73.             "MUI ist im Aminet erhältlich:\n"
  74.             "dev/gui/muiXXusr.lha\n"
  75.             "Wobei XX die Versionsnummer ist."
  76.           )
  77.         )
  78.         (set #no-binary-arc (cat
  79.             "Es konnte kein korrektes Archiv mit dem Hauptprogramm gefunden werden.\n"
  80.             "Besorge Dir eines vom gleichen Ort, wo Du dieses Archiv gefunden hast, und entpacke es in das gleiche Verzeichnis.\n"
  81.             "Siehe die Datei 'Laplace#?.readme' für genauere Informationen.\n"
  82.           )
  83.         )
  84.         (set #destdir-prompt "Wähle das Verzeichnis, wo Laplace installiert werden soll. Eine neue Schublade wird erzeugt.")
  85.         (set #destdir-help (cat
  86.             "Eine Schublade 'Laplace' wird ein gewählten Verzeichnis erzeugt, wo alle nötigen Dateien gespeichert werden.\n\n"
  87.             @askdir-help
  88.           )
  89.         )
  90.         (set #icontype-prompt "Wähle die Piktogramm Kollektion aus:")
  91.         (set #icontype-help @askchoice-help)
  92.         (set #icontype-std "4 Farben Standart")
  93.         (set #icontype-mwb "8 Farben MagicWB2")
  94.         (set #cputype-prompt "Für welchen Prozessor soll Laplace installiert werden?")
  95.         (set #cputype-help @askchoice-help)
  96.         (set #lang-prompt "Welche Sprachen sollen installiert werden?")
  97.         (set #langs-help @askoptions-help)
  98.         (set #nostartup-prompt "Soll das Start-Fenster abgeschaltet werden?\nSiehe Hilfe.")
  99.         (set #nostartup-help (cat
  100.             "Es wurde berichtet, daß das Start-Fenster bei einigen Systemen zu Problemen führt.\n"
  101.             "Sollte dies bei Deiner Konfiguration der Fall sein, so läßt es sich abschalten.\n\n"
  102.             "Wenn Du Dir nicht sicher bist, so lasse es erst einmal eingeschaltet und teste es.\n"
  103.             "In der Anleitung, Sektion 'Bekannte Fehler', ist beschrieben, wie es im nachhinein abgeschaltet werden kann, ohne Laplace neu zu installieren.\n\n"
  104.             @askbool-help)
  105.         )
  106.         (set #docs-prompt "In welchen Formaten soll die Dokumentation installiert werden?")
  107.         (set #docs-help (cat
  108.             "AmigaGuide:\n"
  109.             "   Dies sollte immer installiert werden, da die Online-Hilfe mit diesem Format arbeitet.\n\n"
  110.             "ASCII:\n"
  111.             "   So kann die Dokumentation mit jedem Textanzeiger (z.B. MuchMore) angezeigt werden.\n\n"
  112.             "DVI:\n"
  113.             "   So kann die Dokumentation in hoher Qualität ausgedruckt werden. Dazu ist jedoch eine TeX-Installation nötig.\n\n"
  114.             @askoptions-help
  115.           )
  116.         )
  117.         (set #unpack-main "Entpacke Hauptprogram...")
  118.         (set #unpack-arexx "Entpacke ARexx Skripte...")
  119.         (set #unpack-cat "Entpacke Kataloge...")
  120.         (set #unpack-docs "Entpacke Dokumentation...")
  121.         (set #unpack-fonts "Entpacke Schriftarten...")
  122.         (set #unpack-libs "Entpacke Bibliotheken...")
  123.         (set #unpack-include "Entpacke Include-Dateien...")
  124.         (set #unpack-presets "Entpacke Einstellungen...")
  125.         (set #unpack-projects "Entpacke Projekte...")
  126.         (set #unpack-icons "Entpacke Piktogramme...")
  127.         (set #unpack-tools "Entpacke Extras...")
  128.         (set #unpack-buttons "Entpacke Knöpfe...")
  129.         (set #unpack-images "Entpacke Bilder...")
  130.         (set #unpack-prefs "Entpacke Konfiguration...")
  131.         (set #unpack-postscript "Entpacke PostScript-Dateien...")
  132.         (set #unpack-error "Kann '%s' nicht entpacken.\nDOS Fehlerkode %ld.")
  133.         (set #copy-icons "Kopiere Piktogramme...")
  134.         (set #copy-more "Kopiere Dokumentanzeiger...")
  135.         (set #deldir-prompt "Wähle das Verzeichnis, wo Laplace installiert ist.")
  136.         (set #deldir-help @askdir-help)
  137.         (set #deinstall-finish "Laplace wurde aus dem Verzeichnis '%s' gelöscht.\n\nSchade, daß Laplace Dir nicht gefallen hat ;-(")
  138.         (set #deinstall-working "Laplace wird gelöscht...")
  139.         (set #deinstall-notfound "Laplace befindet sich nicht im gewählten Verzeichnis.")
  140.         (set #confirm-prompt (cat
  141.             "Soll Laplace wirklich gelöscht werden?\n"
  142.             "Die Daten gehen unwiederbringlich verloren!"
  143.           )
  144.         )
  145.         (set #confirm-help @askbool-help)
  146.         (set #parts-prompt "Welche Programmteile sollen installiert werden?")
  147.         (set #parts-help (cat
  148.             "Hauptprogramm:\n"
  149.             "  Laplace, was sonst...\n\n"
  150.             "Dokumentation:\n"
  151.             "  Programmdokumentation in AmigaGuide und ASCII...\n\n"
  152.             "Kataloge:\n"
  153.             "  Katalogdateien, um das Hauptprogramm an die gewählte Sprache anzupassen.\n\n"
  154.             "Standartpiktogramme:\n"
  155.             "  Piktogramme für ARexx-Skripte, Include-Dateien und Projekte.\n\n"
  156.             "Standartschriftarten:\n"
  157.             "  Du kannst eine eigene Schriftart einstellen, falls Du jedoch griechische Symbole nutzen willst, mußt Du diesen Teil installieren.\n\n"
  158.             "Beispiel ARexx-Skripte:\n"
  159.             "  einige Beispiel-Skripte, die die Möglichkeiten der ARexx-Schnittstelle zeigen sollen.\n\n"
  160.             "Include-Dateien:\n"
  161.             "  Bibliotheken mit externen Funktionen.\n\n"
  162.             "Standarteinstellungen:\n"
  163.             "  einige Einstellungsdateien..\n\n"
  164.             "Beipielprojekte:\n"
  165.             "  einige Projekte, die die Fähigkeiten von Laplace demonstrieren sollen.\n\n"
  166.             "Extras:\n"
  167.             "  Ein paar Hilfsprogramme, u.a. ein Skript, um die DVI Anleitung auszudrucken.\n\n"
  168.             "Knöpfe:\n"
  169.             "  Bilder für die Knopfleiste.\n\n"
  170.             "Bilder:\n"
  171.             "  Sonstige Bilder.\n\n"
  172.             "Konfiguration:\n"
  173.             "  Konfigurationsdateien für Menüs, Knopfleiste und Tastaturbelegung.\n\n"
  174.             @askoptions-help
  175.           )
  176.         )
  177.         (set #parts-main "Hauptprogramm")
  178.         (set #parts-docs "Dokumentaion")
  179.         (set #parts-cats "Kataloge")
  180.         (set #parts-icons "Standartpiktogramme")
  181.         (set #parts-fonts "Standartschriftarten")
  182.         (set #parts-arexx "Beipiels ARexx-Skripte")
  183.         (set #parts-include "Include Dateien")
  184.         (set #parts-presets "Standarteinstellungen")
  185.         (set #parts-projects "Beispielprojekte")
  186.         (set #parts-tools "Extras")
  187.         (set #parts-buttons "Knöpfe")
  188.         (set #parts-images "Bilder")
  189.         (set #parts-prefs "Preferences")
  190.         (set #del-obsolete "Lösche veraltete Dateien...")
  191.         (set #backups-prompt "Soll ich Sicherheitskopien der alten Dateien anlegen?")
  192.         (set #backups-help (cat
  193.             "Die Dateien aus 'Include', 'Presets', 'ARexx', 'Projects' werden jeweils mit der Endung '.old' kopiert, damit sie nicht von neuen Versionen überschrieben werden.\n"
  194.             @askbool-help
  195.           )
  196.         )
  197.         (set #make-backups "Erstelle Sicherheitskopien...")
  198.         (set #mf-inputs-prompt "Wohin sollen die MetaFont Dateien kopiert werden?")
  199.         (set #mf-inputs-help (cat
  200.             "Um die DVI Version der Anleitung anzuzeigen, benötigst Du eine spezielle Schriftart.\n"
  201.             "Damit MetaFont die nötigen Dateien finden kann, müssen diese in das entsprechende Verzeichnis kopiert werden, z.B. 'MF:inputs/'.\n"
  202.             @askdir-help
  203.           )
  204.         )
  205.         (set #tex-fonts-prompt "Wohin sollen die .tfm Dateien kopiert werden?")
  206.         (set #tex-fonts-help (cat
  207.             "Um die DVI Version der Anleitung anzuzeigen, benötigst Du eine spezielle Schriftart.\n"
  208.             "Damit ShowDVI die nötigen Dateien finden kann, müssen diese in das entsprechende Verzeichnis kopiert werden, z.B. 'TeX:fonts/tfm'.\n"
  209.             @askdir-help
  210.           )
  211.         )
  212.         (set #copy-error "Kann Datei `%s' nicht kopieren.")
  213.         (set #makedir-error "Kann Verzeichnis `%s' nicht erzeugen.")
  214.         (set #unpack-error "Kann Archiev `%s' nicht enpacken.")
  215.         (set #errormsg-cause "Fehlerursache")
  216.         (set #errormsg-quest "Soll das Skript weiter geführt werden?\n(Siehe `Hilfe' für weiter Infos)")
  217.         (set #errormsg-proceed "Weiter!")
  218.         (set #errormsg-cancel "Abbruch!")
  219.         (set #errormsg-help (cat
  220.             "Ein ernsthafter Fehler während der Installation ist aufgetreten.\n"
  221.             "Du kannst mit dem Skript fortfahren, eventuell läuft alles doch noch gut....\n"
  222.             "Bitte benachrichtige mich über den Fehler!!\n\n"
  223.             @askbool-help
  224.           )
  225.         )
  226.         (set #trap-error-1 "Benutzerabbruch")
  227.         (set #trap-error-2 "Speicherplatzmangel")
  228.         (set #trap-error-3 "Skript-Fehler")
  229.         (set #trap-error-4 "DOS-Fehler Nr. ")
  230.         (set #trap-error-5 "Falsche Parameter")
  231. ;-2-
  232.     )
  233.     (if (= @language "pladd")
  234.         (
  235.             (abort "not implemented")
  236.         )
  237.         (
  238. ;-1- "english"
  239.             (set #lhapath-prompt "Lha is required! Where can I find it?")
  240.             (set #lhapath-help (cat
  241.                 "Lha is needed to perform the installation, "
  242.                 "but I could not be found in your C: directory.\n"
  243.                 "Please enter the complete path, where I can find it.\n"
  244.                 "\n"
  245.                 @askfile-help
  246.               )
  247.             )
  248.             (set #welcome "Welcome to the installation of Laplace.")
  249.             (set #mode-prompt "Which action should be performed?")
  250.             (set #mode-help @askchoice-help)
  251.             (set #mode-install "install Laplace")
  252.             (set #modeupdate-prompt (cat
  253.                 "Which action should be performed?\n"
  254.                 "Laplace V%s is already installed at %s."
  255.               )
  256.             )
  257.             (set #modeupdate-help @askchoice-help)
  258.             (set #mode-update "update Laplace")
  259.             (set #mode-install "install Laplace")
  260.             (set #mode-deinstall "remove Laplace")
  261.             (set #share-info (cat
  262.                 "If you like this program, please send me a e-mail or postcard.\n"
  263.                 "\n"
  264.                 "e-mail:\n"
  265.                 "bstegema@ix.urz.uni-heidelberg.de\n"
  266.                 "\n"
  267.                 "s-mail:\n"
  268.                 "Benjamin Stegemann\n"
  269.                 "Emmertsgrundpassage 1\n"
  270.                 "69126 Heidelberg\n"
  271.                 "Germany"
  272.               )
  273.             )
  274.             (set #wrongversion (cat
  275.                 "This script need the installer V42.9 or better. "
  276.                 "It is provided in the Laplace/Tools directory and should be used. "
  277.                 "If you have a tool like ToolAlias installed, use this version as your standart."
  278.               )
  279.             )
  280.             (set #wrongos (cat
  281.                 "Laplace requires OS V39 or better.\n"
  282.                 "You have V%ld.%ld installed. Sorry."
  283.               )
  284.             )
  285.             (set #wrongmui (cat
  286.                 "Laplace requires MUI V13 or better.\n"
  287.                 "You have V%ld.%ld installed. Sorry.\n\n"
  288.                 "MUI can be found in Aminet:\n"
  289.                 "dev/gui/muiXXusr.lha\n"
  290.                 "where XX is the version number."
  291.               )
  292.             )
  293.             (set #nomui (cat
  294.                 "Laplace requires MUI V13 or better.\n"
  295.                 "Currently MUI is not installed. Sorry.\n\n"
  296.                 "MUI can be found in Aminet:\n"
  297.                 "dev/gui/muiXXusr.lha\n"
  298.                 "where XX is the version number."
  299.               )
  300.             )
  301.             (set #no-binary-arc (cat
  302.                 "There's no valid archive containing the main program of Laplace.\n"
  303.                 "Get one from the same location, where you found this archive, an depack it into the same directory.\n"
  304.                 "Look at the file 'Laplace#?.readme' for more information.\n"
  305.               )
  306.             )
  307.             (set #destdir-prompt "Select the directory where Laplace should be installed. A new drawer will be created.")
  308.             (set #destdir-help (cat
  309.                 "A drawer called 'Laplace' will be created in the selected directory, where all files are stored.\n\n"
  310.                 @askdir-help
  311.               )
  312.             )
  313.             (set #icontype-prompt "Select the icon collection you want to use:")
  314.             (set #icontype-help @askchoice-help)
  315.             (set #icontype-std "4 color standart")
  316.             (set #icontype-mwb "8 color MagicWB2")
  317.             (set #cputype-prompt "Select your processor version?")
  318.             (set #cputype-help @askchoice-help)
  319.             (set #langs-prompt "Which languages should be installed?")
  320.             (set #langs-help @askoptions-help)
  321.             (set #docs-prompt "Which formats for the documentation should be installed?")
  322.             (set #docs-help (cat
  323.                 "AmigaGuide:\n"
  324.                 "   You should always install this, because the online-help need this format.\n\n"
  325.                 "ASCII:\n"
  326.                 "   With this format the documentation can be shown with every textdisplayer (e.g. MuchMore).\n\n"
  327.                 "DVI:\n"
  328.                 "   You can use this to print the documentation in high quality. But you need a TeX-installation for this.\n\n"
  329.                 @askoptions-help
  330.               )
  331.             )
  332.             (set #nostartup-prompt "Disable the startup-window?\nSee help.")
  333.             (set #nostartup-help (cat
  334.                 "It has been reported that the startup-window causes some problems on some systems.\n"
  335.                 "If this is the case for your configuration, you can disable it.\n\n"
  336.                 "If you are not sure, leave the startup-window enabled and test it.\n"
  337.                 "In the manual, section 'Known bugs', I expain, how to disable the startup-window, without reinstallung Laplace.\n\n"
  338.                 @askbool-help)
  339.             )
  340.             (set #unpack-main "Decrunching main program...")
  341.             (set #unpack-arexx "Decrunching ARexx scripts...")
  342.             (set #unpack-cat "Decrunching catalogs...")
  343.             (set #unpack-docs "Decrunching documentation...")
  344.             (set #unpack-fonts "Decrunching fonts...")
  345.             (set #unpack-libs "Decrunching libraries...")
  346.             (set #unpack-include "Decrunching include files...")
  347.             (set #unpack-presets "Decrunching presets...")
  348.             (set #unpack-projects "Decrunching projects...")
  349.             (set #unpack-icons "Decrunching icons...")
  350.             (set #unpack-tools "Decrunching extras...")
  351.             (set #unpack-buttons "Decrunching buttons...")
  352.             (set #unpack-images "Decrunching images...")
  353.             (set #unpack-prefs "Decrunching prefs...")
  354.             (set #unpack-postscript "Decrunching PostScript files...")
  355.             (set #unpack-error "Unable to unpack '%s'.\nDOS error code %ld.")
  356.             (set #copy-icons "Copying icons...")
  357.             (set #copy-more "Copying text viewer...")
  358.             (set #deldir-prompt "Select the drawer where Laplace is installed.")
  359.             (set #deldir-help @askdir-help)
  360.             (set #deinstall-finish "Laplace has been removed from '%s'.\n\nToo bad that you didn't like Laplace ;-(")
  361.             (set #deinstall-working "Laplace is being erased...")
  362.             (set #deinstall-notfound "Laplace can't be found in the selected drawer.")
  363.             (set #confirm-prompt (cat
  364.                 "Do you really want to remove Laplace?\n"
  365.                 "All files are lost forever!!"
  366.               )
  367.             )
  368.             (set #confirm-help @askbool-help)
  369.             (set #parts-prompt "Which packages should be installed?")
  370.             (set #parts-help (cat
  371.                 "main program:\n"
  372.                 "  Laplace itself...\n\n"
  373.                 "documentation:\n"
  374.                 "  docs in AmigaGuide and ASCII...\n\n"
  375.                 "catalogs:\n"
  376.                 "  catalogs to adjust the main program to the selected language.\n\n"
  377.                 "default icons:\n"
  378.                 "  default icons for ARexx scripts, include files and projects.\n\n"
  379.                 "default fonts:\n"
  380.                 "  you may use your own font, but if you want to have greek, symbols you must install this package.\n\n"
  381.                 "example ARexx scripts:\n"
  382.                 "  some scripts to show the functions of the ARexx port.\n\n"
  383.                 "include files:\n"
  384.                 "  libraries containing external functions.\n\n"
  385.                 "default presets:\n"
  386.                 "  some preset files..\n\n"
  387.                 "example projects:\n"
  388.                 "  some projects to demonstrate the abilities of Laplace.\n\n"
  389.                 "extras:\n"
  390.                 "  some extra programs, among other things a script to print the DVI manual\n\n"
  391.                 "buttons:\n"
  392.                 "  button images for the toolbar\n\n"
  393.                 "images:\n"
  394.                 "  misc images\n\n"
  395.                 "prefs:\n"
  396.                 "  configuration for menus, toolbar and keyboard\n\n"
  397.                 @askoptions-help
  398.               )
  399.             )
  400.             (set #parts-icons "default icons")
  401.             (set #parts-main "main program")
  402.             (set #parts-docs "documentation")
  403.             (set #parts-cats "catalogs")
  404.             (set #parts-fonts "default fonts")
  405.             (set #parts-arexx "example ARexx scripts")
  406.             (set #parts-include "include files")
  407.             (set #parts-presets "default presets")
  408.             (set #parts-projects "example projects")
  409.             (set #parts-tools "extras")
  410.             (set #parts-buttons "buttons")
  411.             (set #parts-images "images")
  412.             (set #parts-prefs "prefs")
  413.             (set #del-obsolete "Deleting obsolete files...")
  414.             (set #backups-prompt "Should I create backups of your old files?")
  415.             (set #backups-help (cat
  416.                 "All files from 'Include', 'Presets', 'ARexx', 'Projects' are copied with a suffix '.old' to prevent them from being overwritten.\n"
  417.                 @askbool-help
  418.               )
  419.             )
  420.             (set #make-backups "Creating backups...")
  421.             (set #mf-inputs-prompt "Where should I place the MetaFont files?")
  422.             (set #mf-inputs-help (cat
  423.                 "To display the DVI version of the manual, you need a special font.\n"
  424.                 "MetaFont needs the files in a directory where it can find them, e.g. 'MF:inputs/'.\n"
  425.                 @askdir-help
  426.               )
  427.             )
  428.             (set #tex-fonts-prompt "Where should I place the .tfm files?")
  429.             (set #tex-fonts-help (cat
  430.                 "To display the DVI version of the manual, you need a special font.\n"
  431.                 "ShowDVI needs the files in a directory where it can find them, e.g. 'TeX:fonts/tfm/'.\n"
  432.                 @askdir-help
  433.               )
  434.             )
  435.             (set #copy-error "Unable to copy file `%s'.")
  436.             (set #makedir-error "Unable to create directory `%s'.")
  437.             (set #unpack-error "Unable to unpack archive `%s'.")
  438.             (set #unpack-error-text "Unable to unpack archive `%s'.\nLha returned code %ld.\nDOS error code %ld.\n\nDo you want to continue the script?\n(See help for more info)")
  439.             (set #errormsg-cause "Errorcause")
  440.             (set #errormsg-quest "Do you want to continue the script?\n(See help for more info)")
  441.             (set #errormsg-proceed "Proceed!")
  442.             (set #errormsg-cancel "Cancel!")
  443.             (set #errormsg-help (cat
  444.                 "Some serious error during the installation has happened.\n"
  445.                 "You can continue the skript, if you are lucky, everything is ok....\n"
  446.                 "Please report me about the error!!\n\n"
  447.                 @askbool-help
  448.               )
  449.             )
  450.             (set #trap-error-1 "Userbreak")
  451.             (set #trap-error-2 "Out of memory")
  452.             (set #trap-error-3 "Error in installation script")
  453.             (set #trap-error-4 "DOS-error code #")
  454.             (set #trap-error-5 "Wrong Parameters")
  455. ;-2-
  456.         )
  457.     )
  458. )
  459. ;-2-
  460.  
  461. ;-1- "P_GOODBYE"
  462. (procedure P_GOODBYE
  463. ;    (run "Data/Demon/LaplaceEvoke EXIT" (safe))
  464.     (exit)
  465. )
  466. ;-2-
  467. ;-1- "P_ERRORMSG"
  468. (procedure P_ERRORMSG #errormsg-text
  469.     (textfile
  470.         (dest "Installer-Errortext")
  471.         (append ("%s\n%s: %s\n\n%s\n\n"
  472.                     #errormsg-text
  473.                     #errormsg-cause
  474.                     (select #error
  475.                         ""
  476.                         #trap-error-1
  477.                         #trap-error-2
  478.                         #trap-error-3
  479.                         (cat #trap-error-4 @ioerr)
  480.                         #trap-error-5
  481.                     )
  482.                     #errormsg-quest
  483.                 )
  484.         )
  485.     )
  486.  
  487.     (if (= 0 (askbool
  488.                 (prompt ("%s\n%s: %s\n\n%s"
  489.                             #errormsg-text
  490.                             #errormsg-cause
  491.                             (select #error
  492.                                 ""
  493.                                 #trap-error-1
  494.                                 #trap-error-2
  495.                                 #trap-error-3
  496.                                 (cat #trap-error-4 @ioerr)
  497.                                 #trap-error-5
  498.                             )
  499.                             #errormsg-quest
  500.                         )
  501.                  )
  502.                 (help #errormsg-help)
  503.                 (choices #errormsg-proceed #errormsg-cancel)
  504.              )
  505.         )
  506.         (abort "Bye!")
  507.     )
  508. )
  509. ;-2-
  510. ;-1- "P_UNPACK"
  511. (procedure P_UNPACK #unpack-msg #unpack-src #unpack-dest
  512.     (debug "unpack:" #unpack-src "to" #unpack-dest)
  513.  
  514.     (working #unpack-msg)
  515.     (set #error
  516.         (trap $ffffffff
  517.             (
  518.                 (set #unpack-rc (run ("%s >lha_output x \"%s\" \"%s\"" #lhapath #unpack-src #unpack-dest)))
  519.                 (if (> #unpack-rc 0)
  520.                     (
  521.                         (textfile
  522.                             (dest "Installer-Errortext")
  523.                             (append (#unpack-error-text
  524.                                         #unpack-src
  525.                                         #unpack-rc
  526.                                         @ioerr
  527.                                     )
  528.                             )
  529.                             (append "\n\n")
  530.                             (include "lha_output")
  531.                         )
  532.  
  533.                         (if (= 0 (askbool
  534.                                     (prompt (#unpack-error-text
  535.                                                 #unpack-src
  536.                                                 #unpack-rc
  537.                                                 @ioerr
  538.                                             )
  539.                                      )
  540.                                     (help #errormsg-help)
  541.                                     (choices #errormsg-proceed #errormsg-cancel)
  542.                                  )
  543.                             )
  544.                             (abort "Bye!")
  545.                         )
  546.                     )
  547.                 )
  548.             )
  549.         )
  550.     )
  551.  
  552.     (if #error
  553.         (P_ERRORMSG (#unpack-error #unpack-src))
  554.     )
  555. )
  556. ;-2-
  557. ;-1- "P_COPYPATTERN"
  558. (procedure P_COPYPATTERN #copyas-src #copyas-pattern #copyas-dest
  559.     (debug "copy pattern:" #copyas-src "/" #copyas-pattern "to" #copyas-dest)
  560.     (set #error
  561.         (trap $ffffffff
  562.             (copyfiles
  563.                 (source #copyas-src)
  564.                 (pattern #copyas-pattern)
  565.                 (dest #copyas-dest)
  566.                 (nogauge)
  567.             )
  568.         )
  569.     )
  570.  
  571.     (if #error
  572.         (P_ERRORMSG (#copy-error (tackon #copyas-src #copyas-pattern)))
  573.     )
  574. )
  575. ;-2-
  576. ;-1- "P_COPYAS"
  577. (procedure P_COPYAS #copyas-src #copyas-dest #copyas-name
  578.     (debug "copy:" #copyas-src "to" #copyas-dest "as" #copyas-name)
  579.  
  580.     (set #error
  581.         (trap $ffffffff
  582.             (copyfiles
  583.                 (source #copyas-src)
  584.                 (dest #copyas-dest)
  585.                 (newname #copyas-name)
  586.                 (nogauge)
  587.             )
  588.         )
  589.     )
  590.  
  591.     (if #error
  592.         (P_ERRORMSG (#copy-error #copyas-src))
  593.     )
  594. )
  595. ;-2-
  596. ;-1- "P_COPYICON"
  597. (procedure P_COPYICON #copyas-src #copyas-dest #copyas-name
  598.     (debug "copyicon:" #copyas-src "to" #copyas-dest "as" #copyas-name)
  599.  
  600.     (set #error
  601.         (trap $ffffffff
  602.             (copyfiles
  603.                 (source #copyas-src)
  604.                 (dest #copyas-dest)
  605.                 (newname #copyas-name)
  606.                 (noposition)
  607.                 (nogauge)
  608.             )
  609.         )
  610.     )
  611.  
  612.     (if #error
  613.         (P_ERRORMSG (#copy-error #copyas-src))
  614.     )
  615. )
  616. ;-2-
  617. ;-1- "P_BACKUPDIR"
  618. (procedure P_BACKUPDIR #backupdir-src #backupdir-dest
  619.     (debug "backupdir:" #backupdir-src "to" #backupdir-dest)
  620.  
  621.     (if (exists #backupdir-src)
  622.         (foreach #backupdir-src "~(#?.(info|old))"
  623.             (P_COPYAS
  624.                 (tackon #backupdir-src @each-name)
  625.                 #backupdir-dest
  626.                 (cat @each-name ".old")
  627.             )
  628.         )
  629.     )
  630. )
  631. ;-2-
  632. ;-1- "P_MAKEDIR"
  633. (procedure P_MAKEDIR #makedir-name
  634.     (debug "makedir:" #makedir-name)
  635.  
  636.     (set #error
  637.         (trap $ffffffff
  638.             (makedir #makedir-name)
  639.         )
  640.     )
  641.  
  642.     (if #error
  643.         (P_ERRORMSG (#makedir-error #makedir-name))
  644.     )
  645. )
  646. ;-2-
  647.  
  648. ;-1- "P_INSTALL"
  649. ;-1- "P_INSTALL_CHECK"
  650. (procedure P_INSTALL_CHECK
  651.     ; We can't handle this script without Installer 42.9 or better!
  652.     (if (< @installer-version 2752521)
  653.         (abort #wrongversion)
  654.     )
  655.  
  656.     ; check OS
  657.     (set #os-version (getversion))
  658.     (if (< #os-version 2555904)
  659.         (abort (#wrongos (shiftright #os-version 16) (bitand #os-version 65535)))
  660.     )
  661.  
  662.     ; check MUI
  663.     (if (exists "MUI:Libs/muimaster.library" (noreq))
  664.         (set #mui-version (getversion "MUI:Libs/muimaster.library"))
  665.         (set #mui-version 0)
  666.     )
  667.     (if (< #mui-version 851968)
  668.         (abort (if (= #mui-version 0)
  669.                     #nomui
  670.                     (#wrongmui (shiftright #mui-version 16) (bitand #mui-version 65535))
  671.                )
  672.         )
  673.     )
  674.  
  675.     ; set cpu-default type
  676.     ;   0 : 000 nfp
  677.     ;   1 : 020 nfp
  678.     ;   2 : 020 881
  679.     ;   3 : 040
  680.     (set #cpu-default (if (patmatch "(68000|68010)" (database "cpu"))
  681.                           0
  682.                           (if (patmatch "68040" (database "cpu"))
  683.                               3
  684.                               (if (database "fpu" "NOFPU")
  685.                                   1
  686.                                   2
  687.                               )
  688.                           )
  689.                       )
  690.     )
  691.  
  692.     ; check for a binary archive
  693.     (if (and (= #cpu-default 3) (not (exists "Data/Main_040.lha")))
  694.         (set #cpu-default 2)
  695.     )
  696.     (if (and (= #cpu-default 2) (not (exists "Data/Main_020fp.lha")))
  697.         (set #cpu-default 1)
  698.     )
  699.     (if (and (= #cpu-default 1) (not (exists "Data/Main_020.lha")))
  700.         (set #cpu-default 0)
  701.     )
  702.     (if (and (= #cpu-default 0) (not (exists "Data/Main_000.lha")))
  703.         (abort #no-binary-arc)
  704.     )
  705. )
  706. ;-2-
  707. ;-1- "P_INSTALL_ASK"
  708. (procedure P_INSTALL_ASK
  709.     ; get path for Lha
  710.     (set #lhapath "c:Lha")
  711.  
  712.     (while (<> (exists #lhapath (noreq)) 1)
  713.            (
  714.                (if (= @user-level 0)
  715.                    (abort "Since I don't know how to force the Installer to ask you for the path of Lha, I must ask you not to use the Novice mode..\n\nSorry for the inconvenience.")
  716.                )
  717.                (set #lhapath (askfile
  718.                                 (prompt #lhapath-prompt)
  719.                                 (help #lhapath-help)
  720.                                 (default #lhapath)
  721.                              )
  722.                )
  723.            )
  724.     )
  725.  
  726.     ; get destination dir
  727.     (set #dest
  728.         (askdir
  729.             (prompt #destdir-prompt)
  730.             (help #destdir-help)
  731.             (default @default-dest)
  732.         )
  733.     )
  734.  
  735.     (set @default-dest #dest)
  736.  
  737.     ; get icons type
  738.     (set #icon-type
  739.         (askchoice
  740.             (prompt #icontype-prompt)
  741.             (help #icontype-help)
  742.             (choices #icontype-std #icontype-mwb)
  743.             (default (if (= (getenv "MagicWB") "")
  744.                          0
  745.                          1
  746.                      )
  747.             )
  748.         )
  749.     )
  750.  
  751.     ; get cpu and fpu type
  752.     ;(set #cpu-type 020)
  753.     ;(set #fpu-type nfp)
  754.  
  755.     ;(set #n 0)
  756.     ;
  757.     ;(foreach "Data/" "Main_???_???.lha"
  758.     ;    (
  759.     ;        (symbolset ("#main-path-%ld" #n) @each-name)
  760.     ;        (symbolset ("#cpu-type-%ld" #n) (substr @each-name 5 3))
  761.     ;        (symbolset ("#fpu-type-%ld" #n) (substr @each-name 9 3))
  762.     ;        (set #cputype-choices ("MC68%s %s" (symbolval ("#cpu-type-%ld" #n)) (symbolval ("#fpu-type-%ld" #n))))
  763.     ;        (set #n (+ #n 1))
  764.     ;    )
  765.     ;)
  766.  
  767.     (set #cpu-sel
  768.         (askchoice
  769.             (prompt #cputype-prompt)
  770.             (help #cputype-help)
  771.             (choices
  772.                 (if (exists "Data/Main_000.lha") "68000" "")
  773.                 (if (exists "Data/Main_020.lha") "68020" "")
  774.                 (if (exists "Data/Main_020fp.lha") "68020 + 68881" "")
  775.                 (if (exists "Data/Main_040.lha") "68040" "")
  776.             )
  777.             (default #cpu-default)
  778.         )
  779.     )
  780.  
  781.     (set #cpu-type (select #cpu-sel "000" "020" "020fp" "040"))
  782.  
  783.     (debug "cpu-sel = " #cpu-sel)
  784.     (debug "cpu-type = " #cpu-type)
  785.  
  786.     ; select parts
  787.     ;(set #parts
  788.     ;    (askoptions
  789.     ;        (prompt #parts-prompt)
  790.     ;        (help #parts-help)
  791.     ;        (choices
  792.     ;            #parts-main
  793.     ;            #parts-docs
  794.     ;            #parts-cats
  795.     ;            #parts-icons
  796.     ;            #parts-fonts
  797.     ;            #parts-arexx
  798.     ;            #parts-include
  799.     ;            #parts-presets
  800.     ;            #parts-projects
  801.     ;            #parts-tools
  802.     ;            #parts-buttons
  803.     ;            #parts-images
  804.     ;            #parts-prefs
  805.     ;        )
  806.     ;    )
  807.     ;)
  808.  
  809.     ;(if (in #parts 1)
  810.     ;    (
  811.     ;        ; get languages
  812.     ;        (set #langs
  813.     ;            (askoptions
  814.     ;                (prompt #langs-prompt)
  815.     ;                (help #langs-help)
  816.     ;                (choices "english" "deutsch")
  817.     ;            )
  818.     ;        )
  819.     ;
  820.     ;        ; get doc types
  821.     ;        (set #docs
  822.     ;            (askoptions
  823.     ;                (prompt #docs-prompt)
  824.     ;                (help #docs-help)
  825.     ;                (choices "AmigaGuide" "ASCII" "DVI")
  826.     ;            )
  827.     ;        )
  828.     ;
  829.     ;        ; ask for tex paths
  830.     ;        (if (in #docs 2)
  831.     ;            (
  832.     ;                (set #mf-inputs "MF:inputs/")
  833.     ;
  834.     ;                (while (<> (exists #mf-inputs (noreq)) 2)
  835.     ;                       (
  836.     ;                           (if (= @user-level 0)
  837.     ;                               (abort "Since I don't know how to force the Installer to ask you for the path, I must ask you not to use the Novice mode..\n\nSorry for the inconvenience.")
  838.     ;                           )
  839.     ;                           (set #mf-inputs
  840.     ;                               (askdir
  841.     ;                                   (prompt #mf-inputs-prompt)
  842.     ;                                   (help #mf-inputs-help)
  843.     ;                                   (default #mf-inputs)
  844.     ;                                   (newpath)
  845.     ;                               )
  846.     ;                           )
  847.     ;                       )
  848.     ;                )
  849.     ;
  850.     ;                (set #tex-fonts "TeX:fonts/tfm/")
  851.     ;
  852.     ;                (while (<> (exists #tex-fonts (noreq)) 2)
  853.     ;                       (
  854.     ;                           (if (= @user-level 0)
  855.     ;                               (abort "Since I don't know how to force the Installer to ask you for the path, I must ask you not to use the Novice mode..\n\nSorry for the inconvenience.")
  856.     ;                           )
  857.     ;                           (set #tex-fonts
  858.     ;                               (askdir
  859.     ;                                   (prompt #tex-fonts-prompt)
  860.     ;                                   (help #tex-fonts-help)
  861.     ;                                   (default #tex-fonts)
  862.     ;                                   (newpath)
  863.     ;                               )
  864.     ;                           )
  865.     ;                       )
  866.     ;                )
  867.     ;            )
  868.     ;        )
  869.     ;    )
  870.     ;)
  871.  
  872.     (set #backups
  873.         (if (exists "ENVARC:Laplace")
  874.             (askbool
  875.                 (prompt #backups-prompt)
  876.                 (help #backups-help)
  877.             )
  878.             0
  879.         )
  880.     )
  881.  
  882.     (set #start-options "")
  883.  
  884.     (if (>= @user-level 2)
  885.         (if (askbool
  886.                 (prompt #nostartup-prompt)
  887.                 (help #nostartup-help)
  888.                 (default 0)
  889.             )
  890.             (set #start-options "-q")
  891.         )
  892.     )
  893.  
  894.     ;(set #start-options (cat #start-options " --logfile T:Laplace.log"))
  895. )
  896. ;-2-
  897. ;-1- "P_INSTALL_PERFORM"
  898. (procedure P_INSTALL_PERFORM
  899.     (onerror
  900.         (
  901.             (delete "T:Laplace_temp" (all))
  902.             (delete (tackon #dest "Laplace") (all))
  903.             (delete (tackon #dest "Laplace.info"))
  904.         )
  905.     )
  906.  
  907.     (P_UNPACK #unpack-icons
  908.               (select #icon-type
  909.                   "Data/Icons_std.lha"
  910.                   "Data/Icons_mwb.lha"
  911.               )
  912.               "T:Laplace_temp/"
  913.     )
  914.  
  915.     (P_MAKEDIR (tackon #dest "Laplace"))
  916.     (P_MAKEDIR (tackon #dest "Laplace/bin"))
  917.     (P_MAKEDIR (tackon #dest "Laplace/Docs"))
  918.     (P_MAKEDIR (tackon #dest "Laplace/Docs/english"))
  919.     (P_MAKEDIR (tackon #dest "Laplace/Data"))
  920.     (P_MAKEDIR (tackon #dest "Laplace/Data/Libs"))
  921.     (P_MAKEDIR (tackon #dest "Laplace/Data/Intro"))
  922.     (P_MAKEDIR (tackon #dest "Laplace/Data/Tables"))
  923.     (P_MAKEDIR (tackon #dest "Laplace/Data/Fonts"))
  924.     (P_MAKEDIR (tackon #dest "Laplace/Data/Icons"))
  925.     (P_MAKEDIR (tackon #dest "Laplace/Data/Catalogs"))
  926.     (P_MAKEDIR (tackon #dest "Laplace/Data/PostScript"))
  927.     (P_MAKEDIR (tackon #dest "Laplace/Data/PostScript/AFM"))
  928.     ;(P_MAKEDIR (tackon #dest "Laplace/Data/ARexx"))
  929.     (P_MAKEDIR (tackon #dest "Laplace/Data/Include"))
  930.     (P_MAKEDIR (tackon #dest "Laplace/Data/Buttons"))
  931.     (P_MAKEDIR (tackon #dest "Laplace/Data/Prefs"))
  932.     (P_MAKEDIR (tackon #dest "Laplace/Data/Prefs/Presets"))
  933.     (P_MAKEDIR (tackon #dest "Laplace/Data/Prefs/Plotter"))
  934.     (P_MAKEDIR (tackon #dest "Laplace/Data/Prefs/Printer"))
  935.     (P_MAKEDIR (tackon #dest "Laplace/Data/Images"))
  936.     (P_MAKEDIR (tackon #dest "Laplace/Projects"))
  937.     (P_MAKEDIR (tackon #dest "Laplace/Tools"))
  938.     (P_MAKEDIR (tackon #dest "Laplace/Modules"))
  939.     (P_MAKEDIR (tackon #dest "Laplace/Modules/Numeric"))
  940.  
  941.     ; backup old files
  942.     (if (<> #backups 0)
  943.         (
  944.             (working #make-backups)
  945.             ;(P_BACKUPDIR
  946.             ;    (tackon #dest "Laplace/ARexx")
  947.             ;    (tackon #dest "Laplace/Data/ARexx")
  948.             ;)
  949.             ;(P_BACKUPDIR
  950.             ;    (tackon #dest "Laplace/Data/ARexx")
  951.             ;    (tackon #dest "Laplace/Data/ARexx")
  952.             ;)
  953.             (P_BACKUPDIR
  954.                 (tackon #dest "Laplace/Include")
  955.                 (tackon #dest "Laplace/Data/Include")
  956.             )
  957.             (P_BACKUPDIR
  958.                 (tackon #dest "Laplace/Data/Include")
  959.                 (tackon #dest "Laplace/Data/Include")
  960.             )
  961.             (P_BACKUPDIR
  962.                 (tackon #dest "Laplace/Projects")
  963.                 (tackon #dest "Laplace/Projects")
  964.             )
  965.             (P_BACKUPDIR
  966.                 (tackon #dest "Laplace/Prefs")
  967.                 (tackon #dest "Laplace/Prefs")
  968.             )
  969.             ;(P_BACKUPDIR
  970.             ;    (tackon #dest "Laplace/Presets")
  971.             ;    (tackon #dest "Laplace/Data/Presets")
  972.             ;)
  973.             ;(P_BACKUPDIR
  974.             ;    (tackon #dest "Laplace/Data/Presets")
  975.             ;    (tackon #dest "Laplace/Data/Presets")
  976.             ;)
  977.         )
  978.     )
  979.  
  980.     ; delete obsolete files
  981.     (working #del-obsolete)
  982.     (delete (tackon #dest "Laplace/Laplace.image"))
  983.     (delete (tackon #dest "Laplace/Laplace.image_mwb"))
  984.     (delete (tackon #dest "Laplace/Laplace.image2"))
  985.     (delete (tackon #dest "Laplace/Laplace.sample"))
  986.     (delete (tackon #dest "Laplace/Libs") (all))
  987.     (delete (tackon #dest "Laplace/Libs.info"))
  988.     (delete (tackon #dest "Laplace/Fonts") (all))
  989.     (delete (tackon #dest "Laplace/Fonts.info"))
  990.     (delete (tackon #dest "Laplace/Presets") (all))
  991.     (delete (tackon #dest "Laplace/Presets.info"))
  992.     (delete (tackon #dest "Laplace/Icons") (all))
  993.     (delete (tackon #dest "Laplace/Icons.info"))
  994.     (delete (tackon #dest "Laplace/Include") (all))
  995.     (delete (tackon #dest "Laplace/Include.info"))
  996.     (delete (tackon #dest "Laplace/ARexx") (all))
  997.     (delete (tackon #dest "Laplace/ARexx.info"))
  998.     (delete (tackon #dest "Laplace/Catalogs") (all))
  999.     (delete (tackon #dest "Laplace/Catalogs.info"))
  1000.     (delete (tackon #dest "Laplace/Data/Intro/#?") (all))
  1001.     (delete (tackon #dest "Laplace/Data/Tables/#?") (all))
  1002.     (delete (tackon #dest "Laplace/Data/Fonts/#?") (all))
  1003.     (delete (tackon #dest "Laplace/Data/Libs/#?") (all))
  1004.     (delete (tackon #dest "Laplace/Data/Catalogs/#?") (all))
  1005.     (delete (tackon #dest "Laplace/Data/Images/#?") (all))
  1006.     (delete (tackon #dest "Laplace/Data/Prefs/#?") (all))
  1007.     (delete (tackon #dest "Laplace/Data/PostScript/#?") (all))
  1008.     (delete (tackon #dest "Laplace/Data/Modules/#?") (all))
  1009.  
  1010.     (working #copy-icons)
  1011.  
  1012.     (P_COPYAS
  1013.         "T:Laplace_temp/Laplace.info"
  1014.         #dest
  1015.         "Laplace.info"
  1016.     )
  1017.  
  1018.     (P_COPYPATTERN
  1019.         "T:Laplace_temp/Laplace"
  1020.         "#?.info"
  1021.         (tackon #dest "Laplace")
  1022.     )
  1023.  
  1024.     (P_COPYPATTERN
  1025.         "T:Laplace_temp/Laplace/Data"
  1026.         "#?.info"
  1027.         (tackon #dest "Laplace/Data")
  1028.     )
  1029.  
  1030.     ;(working #copy-more)
  1031.     ;
  1032.     ;(P_COPYAS
  1033.     ;    "Tools/MuchMore"
  1034.     ;    (tackon #dest "Laplace/c")
  1035.     ;    "MuchMore"
  1036.     ;)
  1037.  
  1038.     (P_UNPACK #unpack-main ("Data/Main_%s.lha" #cpu-type) (tackon #dest "Laplace/"))
  1039.     (textfile
  1040.         (dest (tackon #dest "Laplace/Laplace"))
  1041.         (append "Stack 300000\n")
  1042.         (append "set LAPLACEHOME `cd`\n")
  1043.         (append ("bin/Laplace %s\n" #start-options))
  1044.     )
  1045.  
  1046.     (P_UNPACK #unpack-libs "Data/Libs.lha" (tackon #dest "Laplace/Data/Libs/"))
  1047.     (P_UNPACK #unpack-cat "Data/Catalogs.lha" (tackon #dest "Laplace/Data/Catalogs/"))
  1048.     (P_UNPACK #unpack-fonts "Data/Fonts.lha" (tackon #dest "Laplace/Data/Fonts/"))
  1049.     (P_UNPACK #unpack-include "Data/Include.lha" (tackon #dest "Laplace/Data/Include/"))
  1050.     (P_UNPACK #unpack-intro "Data/Intro.lha" (tackon #dest "Laplace/Data/Intro/"))
  1051.     (P_UNPACK #unpack-buttons "Data/Buttons.lha" (tackon #dest "Laplace/Data/Buttons/"))
  1052.     (working #prep-images)
  1053.  
  1054.     (foreach (tackon #dest "Laplace/Data/Buttons/") "~(#?.#?)"
  1055.         (
  1056.             (debug ("Tools/pguiPrepImage >\"%s.dat\" \"%s\"" (tackon #dest ("Laplace/Data/Images/%s" @each-name)) (tackon #dest ("Laplace/Data/Images/%s" @each-name))))
  1057.             (run ("Tools/pguiPrepImage >\"%s.dat\" \"%s\"" (tackon #dest ("Laplace/Data/Buttons/%s" @each-name)) (tackon #dest ("Laplace/Data/Buttons/%s" @each-name))))
  1058.         )
  1059.     )
  1060.  
  1061.     (P_UNPACK #unpack-images "Data/Images.lha" (tackon #dest "Laplace/Data/Images/"))
  1062.     (working #prep-images)
  1063.     (foreach (tackon #dest "Laplace/Data/Images/") "~(#?.#?)"
  1064.         (
  1065.             (debug ("Tools/pguiPrepImage >\"%s.dat\" \"%s\"" (tackon #dest ("Laplace/Data/Images/%s" @each-name)) (tackon #dest ("Laplace/Data/Images/%s" @each-name))))
  1066.             (run ("Tools/pguiPrepImage >\"%s.dat\" \"%s\"" (tackon #dest ("Laplace/Data/Images/%s" @each-name)) (tackon #dest ("Laplace/Data/Images/%s" @each-name))))
  1067.         )
  1068.     )
  1069.  
  1070.     (P_UNPACK #unpack-postscript "Data/PostScript.lha" (tackon #dest "Laplace/Data/PostScript/"))
  1071.     (P_UNPACK #unpack-prefs "Data/Prefs.lha" (tackon #dest "Laplace/Data/Prefs/"))
  1072.     (P_UNPACK #unpack-tables "Data/Tables.lha" (tackon #dest "Laplace/Data/Tables/"))
  1073.     (P_UNPACK #unpack-docs "Data/Docs_english.lha" (tackon #dest "Laplace/Docs/english/"))
  1074.     (P_UNPACK #unpack-docs "Data/Docs_english_guide.lha" (tackon #dest "Laplace/Docs/english/"))
  1075.     (P_UNPACK #unpack-docs "Data/Docs_deutsch.lha" (tackon #dest "Laplace/Docs/deutsch/"))
  1076.     (P_UNPACK #unpack-docs "Data/Docs_deutsch_guide.lha" (tackon #dest "Laplace/Docs/deutsch/"))
  1077.     (P_UNPACK #unpack-projects "Data/Projects.lha" (tackon #dest "Laplace/Projects/"))
  1078.     (P_UNPACK #unpack-tools "Data/Tools.lha" (tackon #dest "Laplace/Tools/"))
  1079.  
  1080.     (working #copy-icons)
  1081.  
  1082.     ;(P_COPYPATTERN
  1083.     ;    "T:Laplace_temp/Docs/"
  1084.     ;    "(History|Readme.mui|Copyright).info"
  1085.     ;    (tackon #dest "Laplace/Docs")
  1086.     ;)
  1087.  
  1088.     (P_COPYICON
  1089.         "T:Laplace_temp/Laplace/Docs/english.info"
  1090.         (tackon #dest "Laplace/Docs")
  1091.         "english.info"
  1092.     )
  1093.  
  1094.     (P_COPYICON
  1095.         "T:Laplace_temp/Laplace/Docs/english/Manual.guide.info"
  1096.         (tackon #dest "Laplace/Docs/english")
  1097.         "Manual.guide.info"
  1098.     )
  1099.  
  1100.     (P_COPYICON
  1101.         "T:Laplace_temp/Laplace/Docs/english/BugReport.info"
  1102.         (tackon #dest "Laplace/Docs/english")
  1103.         "BugReport.info"
  1104.     )
  1105.  
  1106.     (P_COPYICON
  1107.         "T:Laplace_temp/Laplace/Docs/english/Registration.info"
  1108.         (tackon #dest "Laplace/Docs/english")
  1109.         "Registration.info"
  1110.     )
  1111.  
  1112.     (P_COPYICON
  1113.         "T:Laplace_temp/Laplace/Docs/english.info"
  1114.         (tackon #dest "Laplace/Docs")
  1115.         "deutsch.info"
  1116.     )
  1117.  
  1118.     (P_COPYICON
  1119.         "T:Laplace_temp/Laplace/Docs/english/Manual.guide.info"
  1120.         (tackon #dest "Laplace/Docs/deutsch")
  1121.         "Anleitung.guide.info"
  1122.     )
  1123.  
  1124.     (P_COPYICON
  1125.         "T:Laplace_temp/Laplace/Docs/english/BugReport.info"
  1126.         (tackon #dest "Laplace/Docs/deutsch")
  1127.         "Fehlermeldung.info"
  1128.     )
  1129.  
  1130.     (P_COPYICON
  1131.         "T:Laplace_temp/Laplace/Docs/english/Registration.info"
  1132.         (tackon #dest "Laplace/Docs/deutsch")
  1133.         "Registrierung.info"
  1134.     )
  1135.  
  1136.     (P_COPYPATTERN
  1137.         "T:Laplace_temp/Laplace/Data/Icons"
  1138.         "#?"
  1139.         (tackon #dest "Laplace/Data/Icons")
  1140.     )
  1141.  
  1142.     (foreach (tackon #dest "Laplace/Data/Include") "~(#?.info)"
  1143.         (P_COPYICON
  1144.             "T:Laplace_temp/Laplace/Data/Icons/def_Include.info"
  1145.             (tackon #dest "Laplace/Data/Include")
  1146.             (cat @each-name ".info")
  1147.         )
  1148.     )
  1149.  
  1150.     (foreach (tackon #dest "Laplace/Projects") "~(#?.info)"
  1151.         (P_COPYICON
  1152.             "T:Laplace_temp/Laplace/Data/Icons/def_Project.info"
  1153.             (tackon #dest "Laplace/Projects")
  1154.             (cat @each-name ".info")
  1155.         )
  1156.     )
  1157.  
  1158.     ;; main part
  1159.     ;(if (in #parts 0)
  1160.     ;    (
  1161.     ;        (P_UNPACK #unpack-main "Data/Main.lha" (tackon #dest "Laplace/"))
  1162.     ;        (P_UNPACK #unpack-libs "Data/Libs.lha" (tackon #dest "Laplace/Data/Libs/"))
  1163.     ;    )
  1164.     ;)
  1165.     ;
  1166.     ;; docs
  1167.     ;(if (in #parts 1)
  1168.     ;    (
  1169.     ;        (P_UNPACK #unpack-docs "Data/Docs.lha" (tackon #dest "Laplace/Docs/"))
  1170.     ;
  1171.     ;        (working #copy-icons)
  1172.     ;        (P_COPYPATTERN
  1173.     ;            "T:Laplace_temp/Docs/"
  1174.     ;            "(History|Readme.mui|Copyright).info"
  1175.     ;            (tackon #dest "Laplace/Docs")
  1176.     ;        )
  1177.     ;
  1178.     ;        (if (in #langs 0)
  1179.     ;            (
  1180.     ;                (P_MAKEDIR (tackon #dest "Laplace/Docs/english"))
  1181.     ;                (P_COPYAS
  1182.     ;                    "Data/Docs_english_files"
  1183.     ;                    (tackon #dest "Laplace/Docs/english")
  1184.     ;                    "Files"
  1185.     ;                )
  1186.     ;
  1187.     ;                (working #copy-icons)
  1188.     ;                (P_COPYICON
  1189.     ;                    "T:Laplace_temp/Extra/Drawer2.info"
  1190.     ;                    (tackon #dest "Laplace/Docs")
  1191.     ;                    "english.info"
  1192.     ;                )
  1193.     ;
  1194.     ;                (if (in #docs 0)
  1195.     ;                    (
  1196.     ;                        (P_UNPACK #unpack-docs "Data/Docs_english_guide.lha" (tackon #dest "Laplace/Docs/english/"))
  1197.     ;                        (working #copy-icons)
  1198.     ;                        (P_COPYAS "T:Laplace_temp/Docs/english/ARexx.info" (tackon #dest "Laplace/Docs/english") "ARexx.info")
  1199.     ;                        (P_COPYAS "T:Laplace_temp/Docs/english/Functions.info" (tackon #dest "Laplace/Docs/english") "Functions.info")
  1200.     ;                        (P_COPYAS "T:Laplace_temp/Docs/english/Manual.info" (tackon #dest "Laplace/Docs/english") "Manual.info")
  1201.     ;                    )
  1202.     ;                )
  1203.     ;
  1204.     ;                (if (in #docs 1)
  1205.     ;                    (
  1206.     ;                        (P_UNPACK #unpack-docs "Data/Docs_english_doc.lha" (tackon #dest "Laplace/Docs/english/"))
  1207.     ;                        (working #copy-icons)
  1208.     ;                        (P_COPYAS "T:Laplace_temp/Docs/english/ARexx.doc.info" (tackon #dest "Laplace/Docs/english") "ARexx.doc.info")
  1209.     ;                        (P_COPYAS "T:Laplace_temp/Docs/english/Functions.doc.info" (tackon #dest "Laplace/Docs/english") "Functions.doc.info")
  1210.     ;                        (P_COPYAS "T:Laplace_temp/Docs/english/Manual.doc.info" (tackon #dest "Laplace/Docs/english") "Manual.doc.info")
  1211.     ;                    )
  1212.     ;                )
  1213.     ;
  1214.     ;                (if (in #docs 2)
  1215.     ;                    (
  1216.     ;                        (P_UNPACK #unpack-docs "Data/Docs_english_dvi.lha" (tackon #dest "Laplace/Docs/english/"))
  1217.     ;                        (working #copy-icons)
  1218.     ;                        (P_COPYAS "T:Laplace_temp/Docs/english/Manual.dvi.info" (tackon #dest "Laplace/Docs/english") "Manual.dvi.info")
  1219.     ;                    )
  1220.     ;                )
  1221.     ;            )
  1222.     ;        )
  1223.     ;        (if (in #langs 1)
  1224.     ;            (
  1225.     ;                (P_MAKEDIR (tackon #dest "Laplace/Docs/deutsch"))
  1226.     ;                (P_COPYAS
  1227.     ;                    "Data/Docs_deutsch_files"
  1228.     ;                    (tackon #dest "Laplace/Docs/deutsch")
  1229.     ;                    "Files"
  1230.     ;                )
  1231.     ;
  1232.     ;                (working #copy-icons)
  1233.     ;                (P_COPYICON
  1234.     ;                    "T:Laplace_temp/Extra/Drawer2.info"
  1235.     ;                    (tackon #dest "Laplace/Docs")
  1236.     ;                    "deutsch.info"
  1237.     ;                )
  1238.     ;
  1239.     ;                (if (in #docs 0)
  1240.     ;                    (
  1241.     ;                        (P_UNPACK #unpack-docs "Data/Docs_deutsch_guide.lha" (tackon #dest "Laplace/Docs/deutsch/"))
  1242.     ;                        (working #copy-icons)
  1243.     ;                        (P_COPYAS "T:Laplace_temp/Docs/english/ARexx.info" (tackon #dest "Laplace/Docs/deutsch") "ARexx.info")
  1244.     ;                        (P_COPYAS "T:Laplace_temp/Docs/english/Functions.info" (tackon #dest "Laplace/Docs/deutsch") "Funktionen.info")
  1245.     ;                        (P_COPYAS "T:Laplace_temp/Docs/english/Manual.info" (tackon #dest "Laplace/Docs/deutsch") "Anleitung.info")
  1246.     ;                    )
  1247.     ;                )
  1248.     ;
  1249.     ;                (if (in #docs 1)
  1250.     ;                    (
  1251.     ;                        (P_UNPACK #unpack-docs "Data/Docs_deutsch_doc.lha" (tackon #dest "Laplace/Docs/deutsch/"))
  1252.     ;                        (working #copy-icons)
  1253.     ;                        (P_COPYAS "T:Laplace_temp/Docs/english/ARexx.doc.info" (tackon #dest "Laplace/Docs/deutsch") "ARexx.doc.info")
  1254.     ;                        (P_COPYAS "T:Laplace_temp/Docs/english/Functions.doc.info" (tackon #dest "Laplace/Docs/deutsch") "Funktionen.doc.info")
  1255.     ;                        (P_COPYAS "T:Laplace_temp/Docs/english/Manual.doc.info" (tackon #dest "Laplace/Docs/deutsch") "Anleitung.doc.info")
  1256.     ;                    )
  1257.     ;                )
  1258.     ;
  1259.     ;                (if (in #docs 2)
  1260.     ;                    (
  1261.     ;                        (P_UNPACK #unpack-docs "Data/Docs_deutsch_dvi.lha" (tackon #dest "Laplace/Docs/deutsch/"))
  1262.     ;                        (working #copy-icons)
  1263.     ;                        (P_COPYAS "T:Laplace_temp/Docs/english/Manual.dvi.info" (tackon #dest "Laplace/Docs/deutsch") "Anleitung.dvi.info")
  1264.     ;                    )
  1265.     ;                )
  1266.     ;            )
  1267.     ;        )
  1268.     ;
  1269.     ;        (if (in #docs 2)
  1270.     ;            (
  1271.     ;                (P_UNPACK #unpack-docs "Data/Docs_Fonts.lha" "T:Laplace_temp/")
  1272.     ;                (P_COPYAS "T:Laplace_temp/lapdoc.mf" #mf-inputs "lapdoc.mf")
  1273.     ;                (P_COPYAS "T:Laplace_temp/lapdoc.tfm" #tex-fonts "lapdoc.tfm")
  1274.     ;                (delete "T:Laplace_temp/lapdoc.mf")
  1275.     ;                (delete "T:Laplace_temp/lapdoc.tfm")
  1276.     ;            )
  1277.     ;        )
  1278.     ;    )
  1279.     ;)
  1280.     ;
  1281.     ;; catalogs
  1282.     ;(if (in #parts 2)
  1283.     ;    (
  1284.     ;        (if (in #langs 1)
  1285.     ;            (
  1286.     ;                (P_MAKEDIR (tackon #dest "Laplace/Data/Catalogs/deutsch"))
  1287.     ;                (P_UNPACK #unpack-cat "Data/Catalogs_deutsch.lha" (tackon #dest "Laplace/Data/Catalogs/deutsch/"))
  1288.     ;            )
  1289.     ;        )
  1290.     ;    )
  1291.     ;)
  1292.     ;
  1293.     ;; icons
  1294.     ;(if (in #parts 3)
  1295.     ;    (P_COPYPATTERN
  1296.     ;        "T:Laplace_temp/Data/Icons"
  1297.     ;        "#?"
  1298.     ;        (tackon #dest "Laplace/Data/Icons")
  1299.     ;    )
  1300.     ;)
  1301.     ;
  1302.     ;; fonts
  1303.     ;(if (in #parts 4)
  1304.     ;    (P_UNPACK #unpack-fonts "Data/Fonts.lha" (tackon #dest "Laplace/Data/Fonts/"))
  1305.     ;)
  1306.     ;
  1307.     ;; arexx scripts
  1308.     ;(if (in #parts 5)
  1309.     ;    (
  1310.     ;        (P_UNPACK #unpack-arexx "Data/ARexx.lha" (tackon #dest "Laplace/Data/ARexx/"))
  1311.     ;        (working #copy-icons)
  1312.     ;        (foreach (tackon #dest "Laplace/Data/ARexx") "~(#?.info)"
  1313.     ;            (P_COPYICON
  1314.     ;                "T:Laplace_temp/Data/Icons/def_ARexx.info"
  1315.     ;                (tackon #dest "Laplace/Data/ARexx")
  1316.     ;                (cat @each-name ".info")
  1317.     ;            )
  1318.     ;        )
  1319.     ;    )
  1320.     ;)
  1321.     ;
  1322.     ;; include
  1323.     ;(if (in #parts 6)
  1324.     ;    (
  1325.     ;        (P_UNPACK #unpack-include "Data/Include.lha" (tackon #dest "Laplace/Data/Include/"))
  1326.     ;        (working #copy-icons)
  1327.     ;        (foreach (tackon #dest "Laplace/Data/Include") "~(#?.info)"
  1328.     ;            (P_COPYICON
  1329.     ;                "T:Laplace_temp/Data/Icons/def_Include.info"
  1330.     ;                (tackon #dest "Laplace/Data/Include")
  1331.     ;                (cat @each-name ".info")
  1332.     ;            )
  1333.     ;        )
  1334.     ;    )
  1335.     ;)
  1336.     ;
  1337.     ;; presets
  1338.     ;(if (in #parts 7)
  1339.     ;    (
  1340.     ;        (P_UNPACK #unpack-presets "Data/Presets.lha" (tackon #dest "Laplace/Data/Presets/"))
  1341.     ;        (working #copy-icons)
  1342.     ;        (foreach (tackon #dest "Laplace/Data/Presets") "~(#?.info)"
  1343.     ;            (P_COPYICON
  1344.     ;                "T:Laplace_temp/Data/Icons/def_Preset.info"
  1345.     ;                (tackon #dest "Laplace/Data/Presets")
  1346.     ;                (cat @each-name ".info")
  1347.     ;            )
  1348.     ;        )
  1349.     ;    )
  1350.     ;)
  1351.     ;
  1352.     ;; projects
  1353.     ;(if (in #parts 8)
  1354.     ;    (
  1355.     ;        (P_UNPACK #unpack-projects "Data/Projects.lha" (tackon #dest "Laplace/Projects/"))
  1356.     ;        (working #copy-icons)
  1357.     ;        (foreach (tackon #dest "Laplace/Projects") "~(#?.info)"
  1358.     ;            (P_COPYICON
  1359.     ;                "T:Laplace_temp/Data/Icons/def_Project.info"
  1360.     ;                (tackon #dest "Laplace/Projects")
  1361.     ;                (cat @each-name ".info")
  1362.     ;            )
  1363.     ;        )
  1364.     ;    )
  1365.     ;)
  1366.     ;
  1367.     ;; tools
  1368.     ;(if (in #parts 9)
  1369.     ;    (
  1370.     ;        (P_UNPACK #unpack-tools "Data/Tools.lha" (tackon #dest "Laplace/Tools/"))
  1371.     ;        (working #copy-icons)
  1372.     ;        (P_COPYICON
  1373.     ;            "T:Laplace_temp/Tools/PrintManual.info"
  1374.     ;            (tackon #dest "Laplace/Tools/")
  1375.     ;            "PrintManual.info"
  1376.     ;        )
  1377.     ;    )
  1378.     ;)
  1379.     ;
  1380.     ;; buttons
  1381.     ;(if (in #parts 10)
  1382.     ;    (
  1383.     ;        (P_UNPACK #unpack-buttons
  1384.     ;                  (select #icon-type
  1385.     ;                        "Data/Buttons_std.lha"
  1386.     ;                        "Data/Buttons_mwb.lha"
  1387.     ;                  )
  1388.     ;                  (tackon #dest "Laplace/Data/Buttons/")
  1389.     ;        )
  1390.     ;    )
  1391.     ;)
  1392.     ;
  1393.     ;; images
  1394.     ;(if (in #parts 11)
  1395.     ;    (
  1396.     ;        (P_UNPACK #unpack-images
  1397.     ;                  "Data/Images.lha"
  1398.     ;                  (tackon #dest "Laplace/Data/Images/")
  1399.     ;        )
  1400.     ;    )
  1401.     ;)
  1402.     ;
  1403.     ;; prefs
  1404.     ;(if (in #parts 12)
  1405.     ;    (
  1406.     ;        (P_UNPACK #unpack-prefs
  1407.     ;                  "Data/Prefs.lha"
  1408.     ;                  (tackon #dest "Laplace/Data/Prefs/")
  1409.     ;        )
  1410.     ;    )
  1411.     ;)
  1412.  
  1413.     (delete "T:Laplace_temp" (all))
  1414. )
  1415. ;-2-
  1416.  
  1417. (procedure P_INSTALL
  1418.     (message #share-info (all))
  1419.  
  1420.     (set @user-level #defuser-level)
  1421.     (welcome #welcome)
  1422.  
  1423.     (P_INSTALL_CHECK)
  1424.     (P_INSTALL_ASK)
  1425.     (P_INSTALL_PERFORM)
  1426.  
  1427.     (run ("Tools/SetConfig PATH=\"%s\" VERSION=0.9" @default-dest))
  1428.  
  1429.     ; Finito
  1430.     (complete 100)
  1431.     (P_GOODBYE)
  1432. )
  1433. ;-2-
  1434. ;-1- "P_REMOVE"
  1435. (procedure P_REMOVE
  1436.     ; get destination dir
  1437.     (set #dest
  1438.         (askdir
  1439.             (prompt #deldir-prompt)
  1440.             (help #deldir-help)
  1441.             (default @default-dest)
  1442.         )
  1443.     )
  1444.  
  1445.     (if (= (substr #dest (- (strlen #dest) 8)) "/Laplace")
  1446.         (set #dest (substr #dest 0 (- (strlen #dest) 8)))
  1447.     )
  1448.  
  1449.     (if (= (substr #dest (- (strlen #dest) 9)) "/Laplace/")
  1450.         (set #dest (substr #dest 0 (- (strlen #dest) 9)))
  1451.     )
  1452.  
  1453.     (if (= (exists (tackon #dest "Laplace") (noreq)) 2)
  1454.         (if (= (askbool
  1455.                     (prompt #confirm-prompt)
  1456.                     (help #confirm-help)
  1457.                )
  1458.                1
  1459.             )
  1460.             (
  1461.                 (working #deinstall-working)
  1462.                 (delete (tackon #dest "Laplace") (all))
  1463.                 (delete (tackon #dest "Laplace.info"))
  1464.                 (delete "ENVARC:Laplace")
  1465.                 (delete "ENV:Laplace")
  1466.                 (message (#deinstall-finish #dest))
  1467.             )
  1468.         )
  1469.         (message #deinstall-notfound)
  1470.     )
  1471.  
  1472.     (P_GOODBYE)
  1473. )
  1474. ;-2-
  1475.  
  1476. ;-1- "main menu"
  1477. (complete 0)
  1478.  
  1479. (onerror
  1480. ;    (run "Data/Demon/LaplaceEvoke EXIT" (safe))
  1481. )
  1482.  
  1483. ;(run "run >NIL: Data/Demon/LaplaceDemon" (safe));
  1484. ;(run "Data/Demon/LaplaceEvoke WAIT 5" (safe));
  1485. ;(run "Data/Demon/LaplaceEvoke PLAYMOD Data/Demon/mod.Prelude1DMin" (safe));
  1486. ;(run "Data/Demon/LaplaceEvoke SHOWPIC Data/Demon/Welcome" (safe));
  1487.  
  1488. (if (exists "ENVARC:Laplace")
  1489.     (
  1490.         (run "Tools/GetConfig >ENV:Laplace_Version VERSION")
  1491.         (run "Tools/GetConfig >ENV:Laplace_Path PATH")
  1492.  
  1493.         (set @default-dest (getenv "Laplace_Path"))
  1494.         (set #old-version (getenv "Laplace_Version"))
  1495.  
  1496.         (set #defuser-level 0)
  1497.  
  1498.         (select (askchoice
  1499.                     (prompt (#modeupdate-prompt #old-version @default-dest))
  1500.                     (help #modeupdate-help)
  1501.                     (choices #mode-update #mode-deinstall)
  1502.                     (default 0)
  1503.                 )
  1504.                 (P_INSTALL)
  1505.                 (P_REMOVE)
  1506.         )
  1507.     )
  1508.     (
  1509.         (set #defuser-level 1)
  1510.  
  1511.         (select (askchoice
  1512.                     (prompt #mode-prompt)
  1513.                     (help #mode-help)
  1514.                     (choices #mode-install #mode-deinstall)
  1515.                     (default 0)
  1516.                 )
  1517.                 (P_INSTALL)
  1518.                 (P_REMOVE)
  1519.         )
  1520.     )
  1521.     (P_GOODBYE)
  1522. )
  1523. ;-2-
  1524.  
  1525.